home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic 6.0 Utilities / Multi-Language Add-In for Visual Basic 6.0 / MultiLang.msi / _AF3F82084EF811D5BEBE0020182C1E5C < prev    next >
Encoding:
Text File  |  2001-05-23  |  6.4 KB  |  160 lines
  1. Attribute VB_Name = "MlStringModule"
  2. Option Explicit
  3.  
  4. Public ml_CurrentLanguageId As Long
  5. Public Const ml_LanguageCount As Long = 2
  6.  
  7. Public Function ml_string(ByVal StringID As Long, Optional ByVal Text As String = "") As String
  8.   Select Case ml_CurrentLanguageId
  9.     'English (United Kingdom)
  10.     Case 2057
  11.       Select Case StringID
  12.         Case 1: ml_string = "SimpleEditor"
  13.         Case 2: ml_string = "New"
  14.         Case 3: ml_string = "Open"
  15.         Case 4: ml_string = "Save"
  16.         Case 5: ml_string = "Cut"
  17.         Case 6: ml_string = "Copy"
  18.         Case 7: ml_string = "Paste"
  19.         Case 8: ml_string = "Status"
  20.         Case 9: ml_string = "&File"
  21.         Case 10: ml_string = "&New"
  22.         Case 11: ml_string = "&Open..."
  23.         Case 12: ml_string = "&Close"
  24.         Case 13: ml_string = "-"
  25.         Case 14: ml_string = "&Save"
  26.         Case 15: ml_string = "Save &As..."
  27.         Case 16: ml_string = "-"
  28.         Case 17: ml_string = "E&xit"
  29.         Case 18: ml_string = "&Edit"
  30.         Case 19: ml_string = "Cu&t"
  31.         Case 20: ml_string = "&Copy"
  32.         Case 21: ml_string = "&Paste"
  33.         Case 22: ml_string = "&View"
  34.         Case 23: ml_string = "&Toolbar"
  35.         Case 24: ml_string = "Status &Bar"
  36.         Case 25: ml_string = "&Tools"
  37.         Case 26: ml_string = "&Help"
  38.         Case 27: ml_string = "&About "
  39.         Case 28: ml_string = "LicenseTo"
  40.         Case 29: ml_string = "Product"
  41.         Case 30: ml_string = "CompanyProduct"
  42.         Case 31: ml_string = "Platform"
  43.         Case 32: ml_string = "Version"
  44.         Case 33: ml_string = "Warning"
  45.         Case 34: ml_string = "Company"
  46.         Case 35: ml_string = "Copyright"
  47.         Case 36: ml_string = "About SimpleEditor"
  48.         Case 37: ml_string = "OK"
  49.         Case 38: ml_string = "&System Info..."
  50.         Case 39: ml_string = "This is a simple editor, based on a TextBox control. It is part of a tutorial for the Multi-Language Add-In for Visual Basic 6.0"
  51.         Case 40: ml_string = "SimpleEditor"
  52.         Case 41: ml_string = "Version"
  53.         Case 42: ml_string = "Warning: This program is not intended for serious use."
  54.         Case 43: ml_string = "Save"
  55.         Case 44: ml_string = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt"
  56.         Case 45: ml_string = "Open"
  57.         Case 46: ml_string = "Save changes?"
  58.         Case 47: ml_string = "SimpleEditor"
  59.         Case 48: ml_string = "Version "
  60.         Case Else: ml_string = Text
  61.       End Select
  62.     'German (Standard)
  63.     Case 1031
  64.       Select Case StringID
  65.         Case 1: ml_string = "Simpler Editor"
  66.         Case 2: ml_string = "Neu"
  67.         Case 3: ml_string = "╓ffnen"
  68.         Case 4: ml_string = "Speichern"
  69.         Case 5: ml_string = "Ausschneiden"
  70.         Case 6: ml_string = "Kopieren"
  71.         Case 7: ml_string = "Einfⁿgen"
  72.         Case 8: ml_string = "Status"
  73.         Case 9: ml_string = "&Datei"
  74.         Case 10: ml_string = "&Neu"
  75.         Case 11: ml_string = "╓&ffnen"
  76.         Case 12: ml_string = "Sch&liessen"
  77.         Case 13: ml_string = "-"
  78.         Case 14: ml_string = "&Speichern"
  79.         Case 15: ml_string = "Speichern &unter"
  80.         Case 16: ml_string = "-"
  81.         Case 17: ml_string = "&Beenden"
  82.         Case 18: ml_string = "&Bearbeiten"
  83.         Case 19: ml_string = "&Ausschneiden"
  84.         Case 20: ml_string = "&Kopieren"
  85.         Case 21: ml_string = "&Einfⁿgen"
  86.         Case 22: ml_string = "&Ansicht"
  87.         Case 23: ml_string = "&Werkzeugleiste"
  88.         Case 24: ml_string = "&Statusleiste"
  89.         Case 25: ml_string = "&Werkzeuge"
  90.         Case 26: ml_string = "&Hilfe"
  91.         Case 27: ml_string = "&▄ber"
  92.         Case 28: ml_string = "LicenseTo"
  93.         Case 29: ml_string = "Product"
  94.         Case 30: ml_string = "CompanyProduct"
  95.         Case 31: ml_string = "Platform"
  96.         Case 32: ml_string = "Version"
  97.         Case 33: ml_string = "Warning"
  98.         Case 34: ml_string = "Company"
  99.         Case 35: ml_string = "Copyright"
  100.         Case 36: ml_string = "▄ber den simplen Editor"
  101.         Case 37: ml_string = "OK"
  102.         Case 38: ml_string = "&Systeminfo"
  103.         Case 39: ml_string = "Dies ist ein simpler auf einem Text-Steuerelement basierender Editor. Er ist Teil eines Tutorials fⁿr das Multi-Language Add-In fⁿr Visual Basic 6.0"
  104.         Case 40: ml_string = "Simpler Editor"
  105.         Case 41: ml_string = "Version"
  106.         Case 42: ml_string = "Warnung: Fⁿr den profesionellen Einsatz nicht geeignet."
  107.         Case 43: ml_string = "Speichern"
  108.         Case 44: ml_string = "Alle Dateien (*.*)|*.*|Text Dateien (*.txt)|*.txt"
  109.         Case 45: ml_string = "╓ffnen"
  110.         Case 46: ml_string = "─nderungen speichern?"
  111.         Case 47: ml_string = "Simpler Editor"
  112.         Case 48: ml_string = "Version "
  113.         Case Else: ml_string = Text
  114.       End Select
  115.   End Select
  116. End Function
  117.  
  118. Public Function ml_LanguageName(ByVal LangIndex As Long) As String
  119.   Select Case LangIndex
  120.     Case 2057: ml_LanguageName = "English (United Kingdom)"
  121.     Case 1031: ml_LanguageName = "German (Standard)"
  122.     Case Else: ml_LanguageName = "Invalid Language Index"
  123.   End Select
  124. End Function
  125.  
  126. Public Sub ml_ChangeLanguage(ByVal LanguageID As Long, ByVal Language As String)
  127.   
  128.   'If an application uses UserControls or Class Modules compiled as separate
  129.   'projects, then these projects may (a) not support the same languages or
  130.   '(b) not use the same ID number for a given language.
  131.   'If the language is changed at run time, an event can be fired via the
  132.   'MLSupport object, and received in all projects.
  133.   'This function checks whether the ID and Language name match before accepting
  134.   'the language change. If they do not match, then it searches for language
  135.   'using the language name not the ID. If the language is not found, then the
  136.   'language is not changed.
  137.   
  138.   'Check whether the LanguageID and the Language match in this project.
  139.   'Use StrComp() for case insensitive comparison
  140.   If StrComp(ml_LanguageName(LanguageID), Language, vbTextCompare) = 0 Then
  141.     ml_CurrentLanguageId = LanguageID
  142.   Else
  143.     'LanguageID may be different in this project.
  144.     'Search for the language string.
  145.     For LanguageID = 0 To ml_LanguageCount - 1
  146.       If StrComp(ml_LanguageName(LanguageID), Language, vbTextCompare) = 0 Then
  147.         ml_CurrentLanguageId = LanguageID
  148.         Exit For
  149.       End If
  150.     Next
  151.   End If
  152.   
  153. End Sub
  154.  
  155.  
  156.  
  157. Public Function ml_LanguageIds() As Variant
  158.   ml_LanguageIds = Array(2057, 1031)
  159. End Function
  160.